home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-readerstuff-
/
pete_sullivan
/
installme1st
/
rexx
/
vitaloff.vcrx
< prev
next >
Wrap
Text File
|
1999-04-21
|
1KB
|
60 lines
/* Disconnect Peter Sullivan 1998 */
/* */
OPTIONS RESULTS
window='YES' /* Delete this line to remove window */
IF SHOW('Ports','MIAMI.1') THEN DO
ADDRESS 'MIAMI.1'
'ISONLINE'
result=rc
IF result=0 THEN DO
ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/cds')
call writeln 'VitalConnect-Offline','Vital Connect is'
call writeln 'VitalConnect-Offline','ALREADY OFFLINE!!'
ADDRESS "COMMAND" "wait 3"
END
'ISONLINE'
result=rc
IF result=1 THEN DO
'OFFLINE'
IF window='YES' THEN CALL WINDOW
END
END
IF ~SHOW('Ports','MIAMI.1') THEN DO
ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/cds')
call writeln 'VitalConnect-Offline','Vital Connect is'
call writeln 'VitalConnect-Offline','not running!!'
ADDRESS "COMMAND" "wait 3"
END
EXIT
WINDOW:
ok=open('VitalConnect-Offline','CON:60/100/200/22/VitalConnect-Offline/')
a=1
cleft='08'x
call writeln 'VitalConnect-Offline',' WAIT!'
call writeln 'VitalConnect-Offline','Vital Connect is'
call writech 'VitalConnect-Offline',' Disconnecting'
ADDRESS "COMMAND" "wait 3"
DO FOREVER
IF ~SHOW('Ports','MIAMI.1') THEN exit
ADDRESS 'MIAMI.1' 'ISONLINE'
result=rc
IF ~result then exit
call writech 'VitalConnect-Offline',cleft
a=a+1
ADDRESS "COMMAND" "wait 3"
If a=14 then Do
a=1
call writech 'VitalConnect-Offline','Connecting'
END
END
RETURN